home *** CD-ROM | disk | FTP | other *** search
/ MacFormat UK 164 - Disc 1 / MF_UK_164_1.iso / Files / Scenes / HOME.DIR / Internal_2_GRAB DETAILS.ls < prev    next >
Encoding:
Text File  |  2005-11-16  |  1.9 KB  |  55 lines
  1. global gActionPath, gRootPath, dV, HDFSize, BDFSize, gInstTarget, gFolderTarget
  2.  
  3. on GatherActions gActionPath
  4.   theURL = gActionPath & "code.menu"
  5.   put theURL
  6.   grabCode = getNetText(theURL)
  7.   if netDone(grabCode) then
  8.     codeKey = netTextresult(grabCode)
  9.   end if
  10.   put codeKey
  11.   repeat with i = 1 to codeKey.line.count
  12.     if codeKey.line[i] contains "<movie>" then
  13.       movieTarget = codeKey.line[i].char[9..codeKey.line[i].char.count]
  14.       go(1, gRootPath & "Files" & dV & "Scenes" & dV & movieTarget)
  15.       gImMovie = 1
  16.     end if
  17.   end repeat
  18.   if gImMovie <> 1 then
  19.     gInstTarget = EMPTY
  20.     gFolderTarget = EMPTY
  21.     repeat with i = 1 to codeKey.line.count
  22.       tagWord = codeKey.line[i].word[1]
  23.       case tagWord of
  24.         "<install>":
  25.           gInstTarget = codeKey.line[i].char[11..codeKey.line[i].char.count]
  26.         "<folder>":
  27.           gFolderTarget = codeKey.line[i].char[10..codeKey.line[i].char.count]
  28.       end case
  29.     end repeat
  30.     memberNumber = member("imageholder").memberNum
  31.     tempURL = gActionPath & "shot.jpg"
  32.     member("imageholder").importFileInto(tempURL)
  33.     member(memberNumber).name = "imageholder"
  34.     member(memberNumber).centerRegPoint = 1
  35.     theTxt = gActionPath & "info.txt"
  36.     grabTxt = getNetText(theTxt)
  37.     if netDone(grabTxt) then
  38.       member("infoTxt").text = netTextresult(grabTxt)
  39.     end if
  40.     member("infoTxt").line[1].fontSize = HDFSize
  41.     member("infoTxt").line[1].fixedLineSpace = HDFSize
  42.     member("infoTxt").line[1].color = rgb(0, 0, 0)
  43.     member("infoTxt").line[1].topSpacing = 0
  44.     member("infoTxt").line[1].bottomSpacing = 0
  45.     repeat with g = 2 to member("infoTxt").line.count
  46.       member("infoTxt").line[g].fontSize = BDFSize
  47.       member("infoTxt").line[g].fixedLineSpace = BDFSize
  48.       member("infoTxt").line[g].color = rgb(0, 0, 0)
  49.       member("infoTxt").line[g].topSpacing = 0
  50.       member("infoTxt").line[g].bottomSpacing = 0
  51.     end repeat
  52.     go(marker("product"))
  53.   end if
  54. end
  55.